home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / mac / prime_CD / pb / PREVIEW.DIR / 00109_Script_fadeout setup parent < prev    next >
Text File  |  1997-07-22  |  884b  |  39 lines
  1. -- utility to set up fadeout frame
  2.  
  3. PROPERTY framescriptname
  4.  
  5.  
  6. on new me
  7.   set framescriptname = "fadeout script"
  8.   return me
  9. end 
  10.  
  11. on setFade me
  12.   set paletteMemberName = char 5 to 6 of the movie
  13.   set theBGmembName = getat(membscontaining("background"),1)
  14.   go "fadeout"
  15.   beginrecording
  16.     set the member of sprite 1 to the number of member theBGmembName
  17.     set the rect of sprite 1 to rect(0, 0, 640, 480)
  18.     updateframe
  19.     set the framePalette to the number of member paletteMemberName
  20.     set the framescript to the number of member framescriptname
  21.     updateframe
  22.     go "transition"
  23.     set the framelabel = ""
  24.     deleteframe
  25.     repeat with i = 1 to 25
  26.       deleteframe
  27.     end repeat
  28.   endrecording  
  29.   return me
  30. end
  31.  
  32. on startSet
  33.   go 1
  34.   beginrecording
  35.     set the frameTempo to 120
  36.     updateFrame
  37.   endrecording
  38.   return me
  39. end